﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<%


ids=myid
%>
<card title="自杀成功">
<p>

<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
mysd=rs("sd")
myjj=rs("jj")
myxx=rs("xx")
sql="delete from sx Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from kywap Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from luo Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from ding Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)

sql="delete from zb Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from wupin Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
Response.Write "自杀成功<br/>您的各项属性已经恢复到初始状态<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select * from sx where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,2
if rs.recordcount<1 then
rs.addnew
rs("ids")=ids
rs.update
end if
Response.Write "您现在的属性如下：<br/>----------<br/>攻击力：[" & rs("gj") &"]<br/>防御力：[" & rs("fs") &"]<br/>经验值：[" & rs("jy") &"]<br/>生命值：[" & rs("tl") &"/" & rs("jy") &"]<br/>当前等级：[" & rs("dj") &"]<br/>"
   rs.close
set rs=Nothing


%>
----------<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[江湖首页]</a><br/>

<%qingtian.shuchu%>

